00100	BEGIN "PRNLOU"
00200		REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
00300		ITG EOF,FLG,WORD,CNT,I,TICK;
00400		SAFE REAL ARRAY BUFFER[1:100];
00500		STRING NAME;
00600		
00700		OPEN(1,"DSK",8,3,0,0,0,EOF);
00800		LOOKUP(1,"OVER.LOU",FLG);
00900		SETFORMAT(9,2);
01000	
01100	WHILE TRUE DO
01200	BEGIN
01300		WORD ← WORDIN(1); IF EOF THEN DONE;
01400		NAME ← CVXSTR(WORD LSH -6);
01500		CNT  ← WORD LAND '77;
01600		IF CNT=6 THEN
01700		ARRYIN(1,BUFFER[1],CNT) ELSE
01800		TICK ← WORDIN(1);
01900		OUTSTR(9&NAME&9&CVS(CNT));
02000		IF EQU(NAME," TICK ") THEN OUTSTR(9&CVOS(TICK));
02100		IF EQU(NAME," THETA") THEN
02200		FOR I←1 STEP 1 UNTIL CNT DO OUTSTR(CVF(BUFFER[I]));
02300		OUTSTR(↓);
02400	END;
02500	
02600	
02700	END "PRNLOU";